home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 014 / where.bas < prev    next >
Encoding:
BASIC Source File  |  1985-08-22  |  2.4 KB  |  73 lines
  1. 10 'Run this program to create the COM program WHERE.COM
  2. 20 'This is a neat program to find files in any directory
  3. 30 'and tell you where they are.
  4. 100 ' WHERE.BAS -- Kiyoski Akima
  5. 110 FOR I%=1 TO 418
  6. 120 READ J$
  7. 130 TOTAL!=TOTAL!+VAL("&H"+J$)
  8. 140 NEXT I%
  9. 150 IF TOTAL!=36950! THEN RESTORE:GOTO 170
  10. 160 PRINT "CHECK YOUR DATA STATEMENTS!":END
  11. 170 OPEN "WHERE.COM" AS #1 LEN=1
  12. 180 FIELD #1,1 AS C$
  13. 190 FOR I%=1 TO 418
  14. 200 READ J$
  15. 210 LSET C$=CHR$(VAL("&H"+J$))
  16. 220 PUT #1,I%
  17. 230 NEXT I%
  18. 240 CLOSE #1
  19. 250 PRINT "WHERE.COM CREATED":END
  20. 260 DATA FC,BF,79,02,BE,81,00,AC
  21. 270 DATA 3C,0D,74,1E,3C,20,76,F7
  22. 280 DATA 80,3E,5C,00,00,74,06,AC
  23. 290 DATA AC,3C,20,76,06,AA,AC,3C
  24. 300 DATA 20,77,FA,A0,5C,00,0A,C0
  25. 310 DATA 75,06,B4,19,CD,21,FE,C0
  26. 320 DATA 00,06,27,02,BA,76,02,BB
  27. 330 DATA 2A,02,E8,16,00,80,3E,86
  28. 340 DATA 02,FF,75,0D,BB,02,00,B9
  29. 350 DATA 1A,00,B4,40,BA,87,02,CD
  30. 360 DATA 21,CD,20,52,BE,79,02,E8
  31. 370 DATA 86,00,33,C9,E8,60,00,72
  32. 380 DATA 0D,E8,85,00,E8,6D,00,72
  33. 390 DATA 05,E8,7D,00,EB,F6,5A,52
  34. 400 DATA BE,23,02,E8,6A,00,B9,10
  35. 410 DATA 00,E8,43,00,72,3F,8B,F2
  36. 420 DATA F6,44,15,10,75,0D,E8,4B
  37. 430 DATA 00,72,32,8B,F2,F6,44,15
  38. 440 DATA 10,74,F3,80,7C,1E,2E,74
  39. 450 DATA ED,57,53,8B,F2,83,C6,1E
  40. 460 DATA 8B,FB,AC,AA,0A,C0,75,FA
  41. 470 DATA 8B,DF,AA,C6,47,FF,5C,E8
  42. 480 DATA A1,FF,5B,5F,C6,07,00,B4
  43. 490 DATA 1A,CD,21,EB,C9,5A,C3,51
  44. 500 DATA 83,C2,2C,B4,1A,CD,21,8B
  45. 510 DATA EA,B4,4E,BA,27,02,CD,21
  46. 520 DATA 8B,D5,59,C3,8B,EA,B4,4F
  47. 530 DATA BA,27,02,CD,21,8B,D5,C3
  48. 540 DATA 8B,FB,AC,AA,0A,C0,75,FA
  49. 550 DATA C3,8B,EA,80,7E,1E,2E,74
  50. 560 DATA 22,BA,27,02,32,C0,A2,86
  51. 570 DATA 02,86,07,97,E8,15,00,97
  52. 580 DATA 88,07,8B,D5,83,C2,1E,E8
  53. 590 DATA 0A,00,B4,09,BA,9F,02,CD
  54. 600 DATA 21,8B,D5,C3,8B,F2,B4,02
  55. 610 DATA AC,8A,D0,CD,21,AC,0A,C0
  56. 620 DATA 75,F7,C3,2A,2E,2A,00,40
  57. 630 DATA 3A,5C,00,00,00,00,00,00
  58. 640 DATA 00,00,00,00,00,00,00,00
  59. 650 DATA 00,00,00,00,00,00,00,00
  60. 660 DATA 00,00,00,00,00,00,00,00
  61. 670 DATA 00,00,00,00,00,00,00,00
  62. 680 DATA 00,00,00,00,00,00,00,00
  63. 690 DATA 00,00,00,00,00,00,00,00
  64. 700 DATA 00,00,00,00,00,00,00,00
  65. 710 DATA 00,00,00,00,00,00,00,00
  66. 720 DATA 00,00,00,00,00,00,00,00
  67. 730 DATA 00,2A,2E,2A,00,00,00,00
  68. 740 DATA 00,00,00,00,00,00,FF,4E
  69. 750 DATA 6F,20,6D,61,74,63,68,69
  70. 760 DATA 6E,67,20,66,69,6C,65,73
  71. 770 DATA 20,66,6F,75,6E,64,2E,0D
  72. 780 DATA 0A,24
  73.